home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / jets (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  134 lines
  1. 0 REM 'JETS' (KEYBOARD INPUT) SHOOT DOWN ENEMY PLANES IN A ONE-ON-ONE DUEL
  2. 1 REM          BY LARRY IRELAND...(8/83)
  3. 5 POKE53281,6:POKE53280,14:LM=255:C4=4:C5=5:C6=6:C7=7:C8=8:C9=9:C0=10
  4. 10 V=53248:PRINT"[147]":C1=1:C2=2:C3=3:Z=0:FORX=ZTOC7:POKEV+X,Z:NEXT
  5. 20 PRINT"DO YOU WANT GAME INSTRUCTIONS? Y/N ?"
  6. 21 GETK$:IFK$=""THEN21
  7. 22 IFK$="Y"THENGOSUB2000
  8. 23 IFK$="N"THENPRINT"[147]":GOTO35
  9. 24 GOTO20
  10. 35 POKEV+21,15:U=RND(-TI)
  11. 40 FORN=ZTO62:READQ:POKE832+N,Q:NEXT
  12. 45 FORN=ZTO62:READQ:POKE896+N,Q:NEXT
  13. 50 FORN=ZTO62:READQ:POKE960+N,Q:NEXT
  14. 70 POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,14
  15. 75 POKEV+40,Z:POKEV+39,Z:POKEV+41,C7:POKEV+42,C1
  16. 80 POKEV+23,Z:POKEV+29,15
  17. 95 PRINT"[147]"
  18. 99 XX=125:YY=227:D=C2
  19. 100 XE=INT(RND(C1)*200)+20:F=INT(RND(C1)*100)+30:
  20. 110 POKEV+Z,XE:POKEV+C2,XE
  21. 120 POKEV+C4,XX:POKEV+C5,YY
  22. 200 POKEV+21,15:FORA=C1TO25:POKE55286+A*40,C1:POKE1014+A*40,72:NEXT
  23. 204 PRINT"",,,"[200] SCORE[157][157][157][157]"SC
  24. 205 FORY=ZTOLMSTEPD
  25. 207 IFBB=C1THEN220
  26. 210 POKEV+C1,Y
  27. 220 IFBH=ZTHENYF=Y+20+C2*(Y-F)
  28. 230 IFY>FANDYF<=LMTHENPOKEV+C3,YF:GOTO240
  29. 231 IFBB=ZTHEN235
  30. 232 IFY<FTHENY=LM:POKEV+C3,Z:GOTO1000
  31. 233 IFYA=ZANDYF>225THENY=LM:POKEV+C3,Z:GOTO1000
  32. 234 IFYG>225THENY=LM:POKEV+C3,Z:GOTO1000
  33. 235 IFYF>225ANDYA=ZTHENYA=Y:GOTO238
  34. 236 IFYA>ZTHEN238
  35. 237 POKEV+C3,Z:GOTO240
  36. 238 YG=Y+22+C2*(Y-YA):IFYG>LMTHENPOKEV+C3,Z:GOTO240
  37. 239 POKEV+C3,YG
  38. 240 GETH$
  39. 250 IFH$=CHR$(32)ANDYM>210ANDBB=ZTHEN440
  40. 260 IFH$=CHR$(29)THEN320
  41. 270 IFH$=CHR$(17)THEN290
  42. 275 IFYM<215THEN450
  43. 280 GOTO900
  44. 290 XX=XX-D*C2
  45. 300 IFXX<20THENXX=20
  46. 310 POKEV+C4,XX:IFYM<215THEN450
  47. 315 GOTO900
  48. 320 XX=XX+D*C2
  49. 330 IFXX>220THENXX=220
  50. 340 POKEV+4,XX:IFYM<215THEN450
  51. 345 GOTO900
  52. 440 YM=210:XM=XX:POKEV+C6,XM
  53. 450 YM=YM-C2*D:IFYM<45THENYM=LM:XM=Z
  54. 460 POKEV+C7,YM
  55. 900 A=PEEK(V+30)
  56. 909 IFBB=1THEN940
  57. 910 IFA=C9THEN3000:REM ENEMY HIT
  58. 920 IFA=C5THEN3200:REM COLLISION
  59. 940 IFA=C6THEN3500:REM HERO HIT
  60. 950 IFY>90ANDA=15THEN3500
  61. 1000 NEXT:IFBB=0THENSC=SC-200
  62. 1005 BB=Z:YA=Z:POKEV+C1,LM
  63. 1007 CT=CT+C1:IFCT=C2THENCT=Z:D=D+C1
  64. 1010 GOTO100
  65. 1200 DATA 1,247,192,0,255,128,0,127,0
  66. 1210 DATA 32,28,2,56,28,14,60,28,30
  67. 1220 DATA 62,28,62,63,62,126,47,255,250
  68. 1230 DATA 39,255,242,3,255,224,1,255,192
  69. 1240 DATA 0,255,128,0,127,0,0,54,0
  70. 1250 DATA 0,54,0,0,20,0,0,28,0,0,28,0
  71. 1260 DATA 0,28,0,0,8,0
  72. 1300 DATA 0,8,0,0,8,0,0,8,0,0,0,0
  73. 1310 DATA 0,0,0,0,0,0,0,8,0
  74. 1320 DATA 0,8,0,0,8,0,0,0,0,0,0,0
  75. 1330 DATA 0,0,0,0,8,0,0,8,0
  76. 1340 DATA 0,8,0,0,0,0,0,0,0,0,0,0
  77. 1350 DATA 0,0,0,0,0,0,0,0,0
  78. 1400 DATA 0,8,0,0,28,0,0,28,0,0,28,0
  79. 1410 DATA 0,20,0,0,54,0,0,54,0,0,127,0
  80. 1420 DATA 0,255,128,1,255,192,3,255,224
  81. 1430 DATA 39,255,242,47,255,250,63,62,126
  82. 1440 DATA 62,28,62,60,28,30,56,28,14
  83. 1450 DATA 32,28,2,0,127,0,0,255,128
  84. 1460 DATA 1,247,192
  85. 2000 PRINT"[147]   INSTRUCTIONS"
  86. 2005 PRINT"YOU ARE THE PILOT OF THE JETFIGHTER AT  THE BOTTOM OF THE SCREEN."
  87. 2010 PRINT"YOU CAN MOVE LEFT OR RIGHT AS FOLLOWS..."
  88. 2015 PRINT,"CRSR(DOWN)  = MOVE LEFT"
  89. 2020 PRINT,"CRSR(RIGHT) = MOVE RIGHT"
  90. 2025 PRINT"TO FIRE YOUR CANON...TAP THE SPACE-BAR      ONCE,DON'T HOLD IT DOWN"
  91. 2030 PRINT"YOU CAN SCORE 100 PTS FOR EACH ENEMY JETFIGHTER THAT YOU DESTROY,BUT ";
  92. 2035 PRINT"YOU HAVE   ONLY ONE LIFE TO LOOSE SO BE CAREFUL."
  93. 2040 PRINT"    (HIT ANY KEY TO START THE GAME)"
  94. 2045 GETKK$:IFKK$=""THEN2045
  95. 2050 K$="N":PRINT"[147]":RETURN
  96. 3000 EX=INT(XM/C8):EY=INT((Y-35)/C8)
  97. 3005 POKEV+C1,Z:POKEV+C7,LM:YM=LM
  98. 3010 IFEY>22THENEY=22
  99. 3011 IFEY<C2THENEY=C2
  100. 3015 EE=1024+EX+40*EY:EC=55296+EX+40*EY
  101. 3020 POKEEE,81:POKEEC,C8
  102. 3030 FORX=C1TO80:NEXT
  103. 3040 POKEEE,86:POKEEC,C7
  104. 3050 POKEEE-40,66:POKEEC-40,C7
  105. 3060 POKEEE+40,66:POKEEC+40,C7
  106. 3070 POKEEE-C1,67:POKEEC-C1,C7
  107. 3080 POKEEE+C1,67:POKEEC+C1,C7
  108. 3090 FORX=C1TO100:NEXT
  109. 3100 POKEEE-41,77:POKEEC-41,C1
  110. 3110 POKEEE-39,78:POKEEC-39,C1
  111. 3120 POKEEE+39,78:POKEEC+39,C1
  112. 3130 POKEEE+41,77:POKEEC+41,C1
  113. 3131 POKEEE-82,77:POKEEC-82,Z:POKEEE-80,66:POKEEC-80,Z
  114. 3132 POKEEE-78,78:POKEEC-78,Z:POKEEE-C2,67:POKEEC-C2,Z
  115. 3133 POKEE+C2,67:POKEEC+C2,Z:POKEEE+78,78:POKEEC+78,Z
  116. 3134 POKEEE+80,66:POKEEC+80,Z:POKEEE+82,77:POKEEC+82,Z
  117. 3140 FORX=C1TO100:NEXT
  118. 3142 W=32
  119. 3143 POKEEE,W:POKEEE-40,W:POKEEE+40,W:POKEEE-C1,W:POKEEE+C1,W:POKEEE-41,W:
  120. 3144 POKEEE-39,W:POKEEE+39,W:POKEEE+41,W:POKEEE-82,W:POKEEE-80,W:POKEEE-78,W
  121. 3145 POKEEE-C2,W:POKEEE+C2,W:POKEEE+78,W:POKEEE+80,W:POKEEE+82,W
  122. 3150 IFHD=C1THEN4000
  123. 3160 SC=SC+100:BB=C1:GOTO1000
  124. 3200 HD=C1:EX=INT(XX/C8):EY=22:POKEV+C5,Z:POKEV+C3,Z:POKEV+C1,Z:GOTO3015
  125. 3500 HD=C1:EX=INT(XX/C8):EY=22:POKEV+C5,Z:POKEV+C3,Z:GOTO3015
  126. 4000 PRINT"[147]":POKEV+21,Z
  127. 4010 PRINT"    YOUR FINAL SCORE IS "SC"[157] [146] PTS."
  128. 4020 PRINT""
  129. 4030 PRINT"SHALL WE PLAY AGAIN?   Y/N?"
  130. 4040 GETA$:IFA$=""THEN4040
  131. 4050 IFA$="Y"THENPOKEV+C7,LM:POKEV+C1,Z:POKEV+C3,Z:RUN
  132. 4060 IFA$<>"N"THEN4040
  133. 4070 PRINT"[147]":END
  134.